"Dette program installerer MTool på Din Amiga. Hvis Du ikke forstår en af spørgsmålene der optræder under installationen, vælg 'hjælp...' knappen. Du vil så blive oplyst om det næste skridt og hvad det er godt for."
)
(set progdest
(askdir
(prompt "Vær venlig og vælg en skuffe til MTool.")
(help "MTool vil blive lagt over i dette directory.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Kopierer MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Kopierer MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Vil Du installere de Shell Scripts?"))
(
(copyfiles
(prompt "Kopierer Scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Vil Du installere de Tools?"))
(if (askbool (help "Hvis Du har valgt dansk som standard sprog og installeret filerne vil MTool starte med en dansk brugerflade.") (prompt "Vil Du installere de danske locale filer?"))
(
(copyfiles
(prompt "Installerer danske kataloger")
(source "Catalogs/dansk")
(pattern "#?")
(dest "Locale:Catalogs/dansk")
)
)
)
)
)
)
(if (askbool (help "Ikonerne bruges til at oprette ikoner for filer passende til deres type. Denne funktion er slået fra i den uregistrerede version.") (prompt "Vil Du installere ikonerne?"))
(
(set icondest
(askdir
(prompt "Vær venlig og vælg en skuffe til ikonerne.")
(help "Eksempel prefs filerne forventer ikonerne i standard skuffen.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB er en samling af baggrunds mønstre og ikoner, resulterende i en meget flot 8-farvet Workbench. Du kan installere ikoner specielt designed til MagicWB.") (prompt "Bruger Du 'MagicWB'?"))
(
(copyfiles
(prompt "Kopierer ikoner...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Kopierer ikoner...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "Dokumentationen består af to AmigaGuide manualer og en historie fil.") (prompt "Vil Du installere dokumentationen?"))
(
(set docdest
(askdir
(prompt "Vær venlig og vælg en skuffe til dokumentationen.")
(help "Det er lige meget hvor Du putter den, sålænge Du kan finde den igen...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Kopierer dokumentationen...")
(source "Docs")
(pattern "#?_DK.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Kopierer dokumentationen...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon er nyttig hex modus af MI, Fineline 11 bruges i MTool's info requester.") (prompt "Vil Du installere fontene?"))
(
(set fontdest
(askdir
(prompt "Vær venlig og vælg en skuffe til fontene.")
(help "Hvis Du ikke 'assign add'er en anden font skuffe skulle Du ikke røre ved denne standard indstilling.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Kopierer fonte...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 1)
(
(message "\n HINWEIS ZUR INSTALLATION VON MTOOL:\n\n"
"Dieses Programm installiert MTool auf Ihrem System. Sollten Sie eine der während der Installation auftretenden Fragen nicht verstehen, können Sie jederzeit 'Hilfe...' anwählen. Sie erhalten dann genaue Auskunft, was der nächste Arbeitsschritt macht und wozu er gut ist."
)
(set progdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für MTool aus.")
(help "In das gewählte Verzeichnis wird das Programme MTool kopiert.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Kopiere Hauptprogramm...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Kopiere den Voreinstellungseditor zu MTool")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "Die Shellscripte werden von einigen Programmobjekten der Demovoreinstellungen verwendet. Sie steuern die Programme unarj, uuxt und untar.") (prompt "Sollen die Shellskripte installiert werden?"))
(
(copyfiles
(prompt "Kopiere die Shellskripte...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "Die Tools sind:\n\n- MFind (Suche nach Dateien und ihrem Inhalt)\n- MIconInfo (Iconinformationen anzeigen)\n\nSie sind bereits in der Demovoreinstellung eingetragen") (prompt "Sollen die Tools installiert werden?"))
(if (askbool (help "Wenn Sie als Landessprache deutsch gewählt haben und diese Dateien installieren lassen, wird MTool eine deutsche Benutzeroberfläche anzeigen.") (prompt "Soll die deutsche Sprachanpassung installiert werden?"))
(
(copyfiles
(prompt "Installiere deutsche Catalogs")
(source "Catalogs/deutsch")
(pattern "#?")
(dest "Locale:Catalogs/deutsch")
)
)
)
)
)
)
(complete 70)
(if (askbool (help "Die Icons werden von MTool benutzt, um Dateien gemäß ihrem Dateityp mit Icons versehen zu können. Diese Fähigkeit ist in der unregistrierten Version gesperrt.") (prompt "Sollen die Icons installiert werden?"))
(
(set icondest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Icons aus.")
(help "Die mitgelieferte Voreinstellungsdatei erwartet die Icons im vorgegebenen Verzeichnis")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB ist eine Sammlung von Hintergrundgraphiken und Icons, die eine sehr schöne 8-farbige Workbench ergeben. Sie können dazu passende Icons installieren lassen") (prompt "Benutzen Sie 'MagicWB'?"))
(
(copyfiles
(prompt "Kopiere Icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Kopiere Icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "Die Anleitungen umfassen zwei AmigaGuide-Dokumente und eine Änderungsdatei.") (prompt "Sollen die Anleitungen kopiert werden?"))
(
(set docdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Anleitungen aus.")
(help "Es ist egal, wo Sie die Anleitungen hinstecken, Sie sollten Sie bloß wiederfinden...")
(default (tackon progdest "Anleitungen"))
(newpath)
)
)
(copyfiles
(prompt "Kopiere Anleitungen...")
(source "Docs")
(pattern "#?_D.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "Die Schrift DatMon ist im Hex-Modus von MI recht nützlich, Fineline 11 wird im Aboutrequester von MTool verwendet.") (prompt "Sollen die Schriften kopiert werden?"))
(
(set fontdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Schriften aus.")
(help "Wenn Sie kein Verzeichnis zum Fonts:-Verzeichnis zuge'add'et haben, sollten Sie die Einstellung bei Fonts: belassen.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Kopiere Zeichensätze...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 2)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool will be copied to this drawer.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Copying MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Copying MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Copying scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 3)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool will be copied to this drawer.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Copying MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Copying MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Copying scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(if (askbool (help "If you selected español as default language and install these files, MTool will show up with a spanish user interface.") (prompt "Do you want to install the spanish locale files?"))
(
(copyfiles
(prompt "Installing Spanish Catalogs")
(source "Catalogs/español")
(pattern "#?")
(dest "Locale:Catalogs/español")
)
)
)
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs include two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_E.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 4)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool will be copied to this drawer.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Copying MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Copying MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Copying scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(if (askbool (help "If you selected français as default language and install these files, MTool will show up with a French user interface.") (prompt "Do you want to install the French locale files?"))
(
(copyfiles
(prompt "Installing French Catalogs")
(source "Catalogs/français")
(pattern "#?")
(dest "Locale:Catalogs/français")
)
)
)
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 5)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool will be copied to this drawer.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Copying MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Copying MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Copying scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(if (askbool (help "If you selected svenska as default language and install these files, MTool will show up with a Swedish user interface.") (prompt "Do you want to install the Swedish locale files?"))
(
(copyfiles
(prompt "Installing Swedish Catalogs")
(source "Catalogs/svenska")
(pattern "#?")
(dest "Locale:Catalogs/svenska")
)
)
)
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs include two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_S.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 6)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool will be copied to this drawer.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Copying MTool...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Copying MTPrefs...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Copying scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(if (askbool (help "If you selected italiano as default language and install these files, MTool will show up with a italian user interface.") (prompt "Do you want to install the italian locale files?"))
(
(copyfiles
(prompt "Installing Italian Catalogs")
(source "Catalogs/italiano")
(pattern "#?")
(dest "Locale:Catalogs/italiano")
)
)
)
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs include two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_I.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 7)
(
(message "\n TÄRKEÄ TIEDOTUS:\n\n"
"Tämä ohjelma asentaa MToolin ja MI:n Amigaasi. Jos et ymmärrä asennuksen aikana esitettäviä kysymyksiä, paina 'help' painiketta. Tämä kertoo sinulle seuraavasta asennusvaiheesta ja sen tarkoituksesta."
)
(set progdest
(askdir
(prompt "Ole hyvä ja valitse hakemisto MToolille")
(help "MTool ja MI kopioidaan valitsemaasi hakemistoon.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Kopioin MToolia...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "Kopioin MTPrefsiä...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Do you want to install the shell scripts?"))
(
(copyfiles
(prompt "Kopioin Scripts...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Do you want to install the tools?"))
(help "MTool luo tiedostoille niiden tyyppiä vastaavat ikonit käyttäen näitä ikoneita pohjana. Tämä toiminto ei ole käytettävissä rekisteröimättömässä versiossa.")
(prompt "Haluatko asentaa ikonit?"))
(
(set icondest
(askdir
(prompt "Ole hyvä ja valitse hakemisto ikoneille.")
(help "Esimerkkiasetukset etsivät ikoneita tästä oletushakemistosta.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool
(help "MagicWB on kokoelma taustakuvia ja ikoneita, luoden hyvän näköisen 8-värisen Workbenchin. Voit asentaa nämä erityisesti MagicWB:tä varten suunnitellut ikonit.")
(prompt "Käytätkö 'MagicWB':tä?"))
(
(copyfiles
(prompt "Kopioin ikoneita...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Kopioin ikoneita...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool
(help "Dokumentaatioon kuuluu kaksi AmigaGuide tiedostoa ja lista muutoksista.")
(prompt "Haluatko asentaa ohjetiedostot?"))
(
(set docdest
(askdir
(prompt "Ole hyvä ja valitse hakemisto ohjeille.")
(help "Ohjeiden sijoituspaikalla ei ole merkitystä, kunhan löydät ne itse...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Kopioin ohjetiedostoja...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool
(help "DatMon on käyttökelpoinen MI:n heksatilassa, Fineline 11 on käytössä MToolin ohjelmatietoikkunassa.")
(prompt "Haluatko asentaa kirjasimet?"))
(
(set fontdest
(askdir
(prompt "Ole hyvä ja valitse hakemisto kirjasimille.")
(help "Jollei sinulla ole toista 'assign add':lla lisättyä kirjasinhakemistoa, jätä tämä oletusarvoonsa.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Kopioin kirjasimia...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 8)
(
(message "\n BELANGRIJKE OPMERKING:\n\n"
"Dit programma installeert MTool op uw Amiga.Als u een van de vragen die te zien zijn niet begrijpt tijdens installering, kies de 'help...'toets. U wordt dan aanwijzingen gegeven voor de volgende stap en waar het toe dient."
)
(set progdest
(askdir
(prompt "Kies a.u.b. een lade voor MTool.")
(help "MTool zal naar deze lade gekopieert worden.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "MTool aan het kopieren...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 30)
(copyfiles
(prompt "MToolvoorkeuzes aan het kopieren...")
(source "Prefs/MTool")
(infos)
(dest "SYS:Prefs")
)
(if (askbool (help "The scripts are needed for some program objects of the demo prefs file. They are used to control the programs unarj, uuxt and untar.") (prompt "Wilt u de shell scripts installeren?"))
(
(copyfiles
(prompt "Scripts aan het kopieren...")
(source "S")
(pattern "#?")
(dest "S:")
)
)
)
(if (askbool (help "The tools are:\n\n- MFind (search for files and their contents)\n- MIconInfo (display icon information)\n\nThey are already included in the demo prefs") (prompt "Wilt u de tools installeren?"))
(prompt "Voorbeelden voorkeuzes bestand aan het kopieren...")
(source "Prefs/Env-Archive/MTool/MTool.Prefs")
(dest "ENVARC:MTool")
)
(copyfiles
(source "Prefs/Env-Archive/MTool/MTool.Prefs")
(dest "ENV:MTool")
)
)
)
(complete 60)
(if (askbool (help "De ikonen zullen door MTool gebruikt worden voor bestanden volgens hun type.Deze mogelijkheid is kan niet gebruikt worden in de niet-geregistreerde versie.") (prompt "Wilt u de ikonen installeren?"))
(
(set icondest
(askdir
(prompt "selekteer a.u.b. een lade voor de ikonen.")
(help "Het voorbeeld voorkeuzesbestand verwacht de ikonen in de standaardlade.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagigWB is een verzameling van achtergrondpatronen en ikonen, dat het Werkbankvenster erg mooi van achtkleuren kan voorzien. U kunt speciaal voor MagicWB ontworpen ikonen installeren.") (prompt "Gebruikt u MagicWB?"))
(
(copyfiles
(prompt "Ikonen aan het kopieren...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Ikonen aan het kopieren...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "Het dokumentenbestand bevat twee AmigaGuide dokumenten en een geschiedenisbestand.") (prompt "Wilt U de dokumenten installeren?"))
(
(set docdest
(askdir
(prompt "selekteer a.u.b. een lade voor de dokumenten.")
(help "Het maakt niet uit in welke lade u de dokumenten plaats, zolang u ze weet terug te vinden...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Dokumenten aan het kopieren...")
(source "Docs")
(pattern "#?_NL.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is nuttig is hex mode van MI, Fineline 11 wordt gebruikt in MTools informatie over venster.") (prompt "wilt u de lettertypes installeren?"))
(
(set fontdest
(askdir
(prompt "Selekteer a.u.b. een lade voor de lettertypes.")
(help "Als u geen 'assign add' aan een ander lettertypelade toegevoegd heeft, moet u deze standaard zetting niet veranderen.")
